Dim driveIndex
driveIndex = 1

Dim driveLetterArray(6)

driveLetterArray(0) = "I"
driveLetterArray(1) = "J"
driveLetterArray(2) = "K"
driveLetterArray(3) = "L"
driveLetterArray(4) = "M"
driveLetterArray(5) = "N"

while True
	Set objShell = CreateObject("WScript.Shell")
	objShell.Run "net use " & driveLetterArray(driveIndex) & ": \\vboxsvr\ExternalStorage" & driveIndex, 0
	driveIndex = driveIndex + 1
	
	If driveIndex = 5 Then
		driveIndex = 1
	End If

	WScript.Sleep(2000)

Wend